home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / DOT.PAS < prev    next >
Pascal/Delphi Source File  |  1984-07-04  |  712b  |  32 lines
  1. Program Dot;
  2. { Program to test the speed of Bios interupt to perform character I/O
  3. { Randomly plots a character 20000 times.
  4. { Takes about twice as long as RANDDOT.PAS
  5. { Danny Cavasos          June 1984 }
  6. type
  7.   varX = record
  8.     varL,varH: Byte;
  9.   end;
  10.   RecPack = record
  11.     AX,BX: varX;
  12.     CX,DX,BP,SI,DI,DS,ES,FLAGS: Integer;
  13.   end;
  14. var
  15.   IntParm : RecPack;
  16.   x,y,i   : Integer;
  17. begin
  18.   for i:=1 to 20000 do
  19.     begin
  20.       x:=random(80);
  21.       y:=random(25);
  22.         gotoXY(x,y);
  23.         with IntParm do
  24.           begin
  25.             AX.varH:=$A;
  26.             AX.varl:=$2;
  27.             BX.varH:=$0;
  28.             CX:=$1;
  29.             Intr($10,IntParm);
  30.           end;
  31.     end;
  32. end.